
option explicit

class CDetalleProductosCotizadosImpuesto

	public oObject
	
	public function sHtml()	
		dim oHtmlBuilder
		
		set oHtmlBuilder = new CHtmlBuilder
	
		call oHtmlBuilder.BeginTr(sHtml)
			call oHtmlBuilder.BeginTag(sHtml, "td bgcolor=#EEEEBB")
				call oHtmlBuilder.AddBoldText( sHtml, oObject.oObjectProperty("id_impuesto").oSimpleProperty("descripcion").sValue & " ("&oObject.oObjectProperty("id_impuesto").oSimpleProperty("porcentaje").sValue&"%)" )
			call oHtmlBuilder.EndTd(sHtml)

			call oHtmlBuilder.BeginTag(sHtml, "td bgcolor=#EEEE90 align='right'")
				call oHtmlBuilder.AddText(sHtml, oObject.oSimpleProperty("monto").sValue )
			call oHtmlBuilder.EndTd(sHtml)

		call oHtmlBuilder.EndTr(sHtml)
	end function
	
end class
